home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / devel / vbcc-68k-src / machines / amiga68k / libsrc / math / math_ieee / fixlu.s < prev    next >
Text File  |  1999-01-01  |  396b  |  25 lines
  1.  xref _MathIeeeSingBasBase
  2.  
  3.  xdef __ieeefixlu
  4. __ieeefixlu:
  5.  move.l  a6,-(sp)
  6.  move.l  _MathIeeeSingBasBase,a6
  7.  move.l  8(sp),d0
  8.  move.l  #$4f000000,d1
  9.  jsr     -42(a6)
  10.  tst.l   d0         ; noetig?
  11.  bge.s   ll
  12.  move.l  8(sp),d0
  13.  jsr     -30(a6)
  14.  move.l  (sp)+,a6
  15.  rts
  16. ll:
  17.  move.l  8(sp),d0
  18.  move.l  #$4f000000,d1
  19.  jsr     -72(a6)
  20.  jsr     -30(a6)
  21.  eor.l   #-2147483648,d0
  22.  move.l  (sp)+,a6
  23.  rts
  24.  
  25.